/* Version 2.00, 4 octobre 1999 (Ajout analyse du point de fonctionnement .OP) */
/* Version 2.01, 14 avril 2000 (Adaptation version 2.05) */
/* Version 2.02, 12 novembre 2000 (Localisation anglais/français) */
/* $VER: 2.02 (12/11/2000) */
options results /* indispensable pour récupérer le résultat des macros */
signal on error /* pour l'interception des erreurs */
signal on syntax
'LANGUAGE'
if result="français.language" then fr=1
else fr=0
if fr=1 then 'TITLE("Recherche analyse existante..."):OBJECTS'
else 'TITLE("Searching for analysis..."):OBJECTS'
objets=result
objet_analyse=0
analyse=''
do i=1 to objets
'FINDOBJ('i',4,-1,-1)'; i=result
if i>0 then do
'READTEXT('i')'; t=result
if left(t,10)=".ANALYSE: " then do
analyse=substr(t,10)
objet_analyse=i
leave
end
end
else leave
end
if analyse~='' then do
if substr(analyse,1,3)="OP" then do
if fr=1 then 'REQUEST("L''analyse actuelle"+CHR(10)+"détermine le point"+CHR(10)+"de fonctionnement"+CHR(10)+"du montage"+CHR(10)+"Voulez-vous en changer?")'
else 'REQUEST("Actual analysis is"+CHR(10)+"«Operating point»"+CHR(10)+"Do-you want to change it ?")'
if result=1 then analyse=''
else analyse='OP'
end
else if substr(analyse,1,3)="AC" then do
if fr=1 then 'REQUEST("Le type d''analyse actuel"+CHR(10)+"est le type AC"+CHR(10)+"Voulez-vous en changer?")'
else 'REQUEST("Actual analysis is AC"+CHR(10)+"Do-you want to change it ?")'
if result=1 then analyse=''
else do
analyse=edition_analyse_AC(analyse)
if analyse='' then exit
end
end
else if substr(analyse,1,3)="DC" then do
if fr=1 then 'REQUEST("Le type d''analyse actuel"+CHR(10)+"est le type DC"+CHR(10)+"Voulez-vous en changer?")'
else 'REQUEST("Actual analysis is DC"+CHR(10)+"Do-you want to change it ?")'
if result=1 then analyse=''
else do
analyse=edition_analyse_DC(analyse)
if analyse='' then exit
end
end
else if upper(substr(analyse,1,5))="TRAN" then do
if fr=1 then 'REQUEST("Le type d''analyse actuel"+CHR(10)+"est le type TRAN"+CHR(10)+"Voulez-vous en changer?")'
else 'REQUEST("Actual analysis is TRAN"+CHR(10)+"Do-you want to change it ?")'
if result=1 then analyse=''
else do
analyse=edition_analyse_TRAN(analyse)
if analyse='' then exit
end
end
else do
if fr=1 then 'MESSAGE("Type d''analyse inconnu"+CHR(10)+"'analyse'")'